home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / easygrap.arc / DISPGRAF.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-05-11  |  640 b   |  26 lines
  1. 1  DEF SEG=&HB800
  2. 10  SCREEN 0,1
  3. 20  COLOR 15,9,1
  4. 30  KEY OFF
  5. 40  CLS
  6. 50  PRINT STRING$(40,176)
  7. 60  PRINT STRING$(1,176)+SPACE$(38)+STRING$(1,176)
  8. 70  PRINT STRING$(1,176)+"       EASY - GRAF  DISPLAY SCREEN    "+STRING$(1,176)
  9. 80  PRINT STRING$(1,176)+SPACE$(38)+STRING$(1,176)
  10. 90  PRINT STRING$(40,176)
  11. 100  PRINT " "
  12. 101  INPUT " ENTER NAME OF ITEM TO BE DISPLAYED      ==>";GRAFNAM$
  13. 200  INPUT " ENTER RESOLUTION <Low or High)          ==>";RESOLUT$
  14. 210  IF LEFT$(RESOLUT$,1) = "l" OR LEFT$(RESOLUT$,1) = "L" THEN RES%=1:GOTO 233
  15. 220  IF LEFT$(RESOLUT$,1) = "h" OR LEFT$(RESOLUT$,1) = "H" THEN RES%=2:GOTO 233
  16. 230  LOCATE CSRLIN-1:BEEP:GOTO 200
  17. 233  COLOR 9,1
  18. 234  SCREEN RES%,1
  19. 235  DEF SEG=&HB800
  20. 240  BLOAD GRAFNAM$+".EZG",0
  21. 270  K$=INKEY$:IF K$="" THEN 270
  22. 275  SCREEN 0,1
  23. 277  CLS
  24. 280  PRINT " "
  25. 300  CHAIN "EASYGRAF"
  26.